: postpone ( "word" -- )
    bl word find dup if
        0> if
            \ immediate
            , ."  *immediate word*"
        else
            compile lit , compile , 
        then 
    else
        true abort" Cannot postpone. Word not found."
    then ; immediate
    
: test1 postpone dup ; immediate
: test2 1 test1 ;
test2 .s

: print" postpone ." ; immediate
: test3 print" Hello mother!" ;
test3
